home *** CD-ROM | disk | FTP | other *** search
/ Voyager Presents CD-ROM's That Matter / Voyager Presents CD-ROM's That Matter.iso / pc / preview.dir / 00029.ls < prev    next >
Encoding:
Text File  |  1995-02-25  |  471 b   |  24 lines
  1. on mouseDown
  2.   global lastContentsLabel, lastFrame
  3.   set prod to getGlobalProduct()
  4.   puppetSprite(32, 0)
  5.   puppetSprite(33, 0)
  6.   unLoadCast()
  7.   if prod = "c" then
  8.     puppetSprite(19, 1)
  9.     set the ink of sprite 19 to 35
  10.     updateStage()
  11.     holdOn(30)
  12.     set lastContentsLabel to lastFrame
  13.     puppetSprite(19, 0)
  14.     updateStage()
  15.     go("about")
  16.   else
  17.     if prod = "about" then
  18.       goLabel(lastContentsLabel)
  19.     else
  20.       go("about")
  21.     end if
  22.   end if
  23. end
  24.